program ketvirta_uzduotis;
  type taskas=record
       x,y:real;
     end;
  var v1, v2, v3, v4:taskas;
      a,b,c:real;

function atstumas(x1,y1,x2,y2:real):real;
begin
     atstumas:=sqrt((x1-x2)*(x1-x2)+(y1-y2)*(y1-y2));
end;

function ArStac(x1,y1, x2,y2, x3,y3,x4,y4 : real):boolean;
begin
    Arstac := (atstumas(x1,y1,x2,y2)=atstumas(x3,y3,x4,y4)) and
                   (atstumas(x1,y1,x3,y3)=atstumas(x2,y2,x4,y4)) and
                   (atstumas(x1,y1,x4,y4)=atstumas(x3,y3,x2,y2))
end;










program ketvirta_uzduotis;
  type taskas=record
       x,y:real;
     end;
  var v1, v2, v3, v4:taskas;
      a,b,c,d,e,f:real;
  function atstumas(c1,c2:taskas):real;
          begin
            atstumas:=sqrt(sqr(c2.x-c1.x)+sqr(c2.y-c1.y));
          end;
begin
  write('iveskite pirmo tasko x ir y koordinates: ');
  readln(v1.x,v1.y);
  write('iveskite antro tasko x ir y koordinates: ');
  readln(v2.x,v2.y);
  write('iveskite trecio tasko x ir y koordinates: ');
  readln(v3.x,v3.y);
  write('iveskite ketvirto tasko x ir y koordinates: ');
  readln(v4.x, v4.y);
  a:=atstumas(v1,v2);
  b:=atstumas(v1,v3);
  c:=atstumas(v1,v4);
  d:=atstumas(v2,v3);
  e:=atstumas(v2,v4);
  f:=atstumas(v3,v4);
  if (a=b) or (a=c) or (a=d) or (a=e) or (a=f)
    then writeln('yra staciakampio virsunes')
    else writeln('nera staciakampio virsunes');
end.

